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THE AS/400 AND THE INTERNEJ- 



Get Your AS/400 on the Internet 

by Mel Beckwan 

Here arc the answers to the questions you're dying to ask: What arc the 
benefits? How do you set up the connection? What about security? And how 
much wiil it cost? 

Connect Your Desktop to the Internet 

by Michael Shaw AS/400. PC 

Hook yoyr PC or Mac to the Internet and tap into a wealth of resources without 
exposing your computing assets to the M force of the Net. 

Internet E-mail Using OV/400 

by Randall 1 Dyck AS/^CO 
You can access the Internet through OfficeVi5ion/400 and your ECS modem. 
Here's how. 



Also see: Industry Watch, page 25. 



AS/400 CLIENT/SERVER COM PUTING 
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C/S Watch 

Run PC Support Under Windows NT 

by Rob Mercado AS/^CC. rC 

Follow this sief>by-step guide to make the PCS WSH submit remote commoi^id. and 
flic transfer functions work on an NT PC. 

C/S Basics 

Understanding Visual Basic Controls 

by Michael Otey . 
Controls are one reason VB has become so popular. Leum how they reduce the 
amount of coding you must do. 

IAN Basics 

Install LAN Support Program on Your PC 

by John Enck AS/400. PC 

IBM's LSP lets CV400 work with your PC's LAN adapter Here's how to install it 
for a Token-Ring LAN. 
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TECHNICAL SOLUTIONS 



Building a Flexible EDI System 

by Richard Homback 36/38/400 
Uniform EDI objects let you easily handle new trading panners and standards. 

A5/400 Help! 

Safely and Reliably Passing CL Parameters 

by Dan Riehi AS/400 
Learn how to use program parameters and make >'Our CL programs work together 
harmoniously. 

* 

Exploring the A5/400 

Using Date/Time Operations in RPG IV, Part 2 

by Bryan Meyers AS/400 
Discover how to take advantage of RPG [V"s date and time calculation support — 
and use diis date-calcubtor program to familiarize yourself with the new functions. 

SoFT»:\RE Tools 

Finding Strings in Members 

by Julian Monypenny AS/400 
Here's a handy tool that scans a source physical file member for a specified string 
and returns the matching line of text. 
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Automate Your Compiles 

by Ernie Malaga AS/400 
CMPSRC compiles your source members correcth' ever\' time, is fully automated, 
and even reports compilation problems. 
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Dialog Box ^ 
A Connoisseur's Guide to the System 

by Michael Gentle 36/38/400 
[f operating systems were wines, here's what the critics would have to say. 

Lndustry Watch 

Surfing the Net for AS/400 Sites 

by Wayne Madden AS/400, PC 

Using the World Wide Web. Gopher servers, and FTP, Wayne Madden goes in 
search of AS/400-related inforaiation on the Internet. 
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CAP Gemini Tackl 
the Year 2000 



C 



AP Gemini America, 
New York-based 
technology consultants, 
and many midrange companies 
have entered countdown 
to potential doomsday: the 
year 2000. 

Many computer applica- 
tions — typically legacy-type 
programs wrinen in Cobol, but 
others as well — can't process 
dates after January 1, 2000. 
Particularly hard hit will be 
programs that process dates 
as nv'o-digit numbers, for 
example, storing the year 1999 
as "99** and the year 2000 as 
"OO; Because "00" is smaller 
than -99; the year 2000 is 
likely to appear as 1900, 

To help companies find 
and correa the offending 
application code, CAP Gemini 
has unveiled a consulting pro 
gram dubbed TransMiUenium 
Services. CAP Gemini has 
adapted its Al-based migration 
systems software, originally 
designed to convert hierarch- 
ical databases to relational 
ones, to root out systems and 
application programs with this 
problem so that program code 
can be altered to reflea the 
correa post-2000 date. 

CAP Gemini's Jim Wood- 
ward, senior vice president 
and head of the new program, 
«ays companies are going to 
spend a lot of money dealing 
with the year 2000. Citing 
figures finom ParaTechnology 
consultants, Woodward 
estimates that U.S. companies 
could spend $90 billion to 
modify their applications to 
handle post-2000 dates. 
Other estimates, he adds. 



Indicate price 
tags as high as 
$500 billion. 

"Take an 
industry aver- 
age of $.35 to 
$.40 per line of 
code," he says. 
"We have one 
client — a 
$200 million-a-year credit card 
company with 6,000 programs 
— that will pay 530 million to 
correa the year 2000 problem." 

Woodward adds that 
companies arc already feeling 
the impaa. Some motor 
vehicle registries, for instance, 
have scaled back five-year 
licenses to four years because 
their computer systems go "tilt" 
at the "00" dilemma. Insurance 
companies are starting to fee! 




the pinch as well, he adds. 
"We really do have credit card 
companies that can't issue 
five-year cards," he says. 

Applications and programs 
that handle dates as a four-digit 
number are safe, explains Chris 
Rose, a technical solutions 
architea with the new CAP 
Gemini program. "There's no 
problem with SQiy400 and 
other four-digit data formats," 
Rose says. "But with any 



AS/400 programs 
written in Cobol/400, 
and even RPG pro- 
grams, particularly 
older ones carried 
over from earlier 
mainframe and 
S/3X programs, 
there's likeh"^ to be 
a problem." 
'j; The most obvious 

fix, Rose adds, is to 
shift affeaed pro- 
grams to a four-digit 
data format. Another 
common solution 
is to pick a cut-off point, 
say 1950, where any t^'O-digit 
dates after that point (51, 52, 
SO on) are treated as 20th cen- 
tury dates and any dates before 
that (01, 02, so on) are consid- 
ered post-millennium dates. 

The only problem with 
the laner option is, of course, 
you get to do it all over again 
in 55 years. 

Steve Shaw 
East Coast Editor 



New Financing Options for S/36 Migration 

In another effort to woo never-say-die S/36 owners, IBM Credit Corporation has unveiled 
a new financing program it hopes will make a dent in the market that seems immune to 
IBM's best marketing efforts. 
As part of the new trade-in terms from IBM Credit S/36s are worth a Sl,500 credit, up from 
S500, toward the new AS/400 Advanced 36. Eligible S/36s include models 5360s, 5362s, 5363s, 
and 5364s. 

Keith Flaugh, director of product financing strategy, adds that S/36 users with the highest 
credit ratings and who agree to a 36-month lease for the Advanced 36 are eligible for lease rates 
carrying 4.9 percent interest charges. Sixty-month leases are available at 6.9 percent interest 
Customers with less than stellar credit ratings can expect to pay an additional three percentage 
points under the new lease program. 

IBM telemarketers have called an undetermined number of S/36 users, alerting them to the 
new program. To be eligible, customers must order Advanced 36s by June 30. 

As a hjrther inducement for users to saap their S/36s, IBM at the end of April hiked its rates for 
S/36 service contracts by 25 percent "Many customers can acquire the Advanced 36 at a monthly 
cost less than the monthly maintenance costs and environmental expenses," Flaugh notes. Service 
contract increases have pushed typical contracts to between 5100 and 5300 a month, he adds. 

In announcing the new lease prx>gram, john Callies, IBM Credit's general manager for end-user 
financing, said that the 200,000 or so S/36 hold-outs "have not kept pace with recent technology 
improvements and suggested enhancements," adding that the program is part of IBM Credit's 
ongoing efforts "to listen and respond to customers' requirements." Steve Shaw 

East Coast Editor 
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rating^ dlsciissioiis ■jMammunrities 

»£aQas cain|»J«9>cdibol 
» T)tfftyt Vgf 200(1 

^> Message 320 of 10518. 

Subject: Rs:Y»ar2000 
Date: 04/24/199$ 

Author: David C DtForast 

<iietofeatflMefeal.uttranqrcs.'n> 
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Gq»lore More: 



ncxf mMsnh 



In artict© <3n5gb9$lq9@chardonnay ^iagara,co*n> Charles Kinghorn, 

E^arkrnQ<ani aoQfa.eQm wraes: 

>From: Charles Kin^vom. ch^jnfft^^anafa.com 

>SUb)ect YUf 2000 

>Date: 20 Apn 995 1 1 :25:2a GlUfT 

>Does dnyorte hdv« experience yet v^-ti l^e malntenenoe of existing ^^rograms in 
> preparation far the year 2000? ... 

My solution was a Aat out Re convert cn wfth the simple if statement for the dete. 
01 DATE. 

05 CC PTC 9(2) 

05 VY PIC 9(2} 

05 MM PIC 9(2> 

05 DD PtC 9(2) 



IP YY > 50 

MOVE 19 TOCC 
ELSE 

MOVE 20 TOCC. 



This rrey noi be the best solution but tt /"Wks. Ill vwrry about ihe oroblem this little 
a^rithlm causes In 2020. 



D.C. DePorest 

dqfof eart^gfeal-uttranet com 



Trapfc this mwiaidfor roe 
gubscobe to compilanfl.cobol 

^ij tt^l^ mefifinQB tn a friend 
Vi«w ofidnal Usenet format 

bttp:/Avww.<iga.coin/[ST_ni=ps]/ 
DEC 03 22-?2 
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YEAR AND DATE KEY MANAGING METHOD FOR DATA FILE 

* (57) Abstract: 

PURPOSE: To provide the managing method for a year and date key 
S being useful for processing a data file in which the year and date keys of both 
ISthe years are mixed especially in the case the Christian Era year is transferred 
Sfrom the 1900 year level to the 200 year level, with regard to the managing 
method for the year and date key in a data processing system for processing the 
pdata file having the year and date key of an abbreviated form in which the upper 
kj two digits of the Chastian Era year are omitted. 

Im CONSTITUTION: When a key file 3 of a year and date key is prepared 

^ with regard to a data file l, or data are sorted by using the year and date key, 
to year data in the year and date key is compared with a prescribed threshold, and 
ry based on its result, a value of two digits 19 or 20 is added to the higher coder 
^'of the year data, and the year data are restored to the Christian Era year of 
^ four digits. By the year and date key containing this restored year data, the key 
2 file 3 is prepared or the data is sorted. 

S CD-Volume: MIJP9404PAJ JP j Copyright: JPO 

m 06103133 A 001 | &Japio 19940415 
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(54) [Title of the Invention] Method of managing date keys of a data file 
(57) [Abstract] 

[Object] Tliis relates to a method of managing date keys in a data processing 
system in wtich a data file is proc ^'^sed having a date key of abbreviated type 
omitting the two most significant digits of tlie western calendar year; in particular, its 
object is to provide a date key management metliod which is usefij.in prorrfissinp & 

fil.» in which, when moving from the 20th century to the 21st century of the 
western calendar year, dates of both centuries are intenningled. 

[Constitution] It has an arrangement wherein, when compiling a key file of date 
keys for a data file or when oer forminE sorting of data using a date key, the year data 
in tlie date k ey is compared with ap rescribed tlir eshold vdue and, dependiag^ntiis 
res ult, tlie 2-digi t3lue. i Q 70 is ap pended at the h eadoftheyear data to restore the 
year data to tlie 4-digit western calendar year, and key fUe compilation or data sorting 
is pftTfftrme d bv means of a date key including this restored year data. 



Diagram of the principles of tlie invention 
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[Claims] 

[Claim 1] Method of managing date keys of a data file characterised m tliat m a 
data processing system -::i±- r - '^^'^ ^^^'^^^ ^ifmiflcant Mfl 

digits, omitting the most significant two digits of the v^estern calendar date are 
eSii^ed for the year data of the date key, when compiling a key file of date keys for 
said data file or when performing sorting of data using a date key, the year data m the 
date key is compared with a prescribed tlireshold value and., depending on the result. 
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in 



tlie 2-digit value 19 or 20 is appended at tbe head of the year data to restore the year 
data to tlie 4-digit western calendar year, and key file compilation or data sorting is 
performed by means of a date key including this restored year data. 

petailed description of the invention] 

[0001] 

[Field of Industrial Application] The invention relates to a method of managing 
a date key in a data processing system in which a data file itfprocessed having an 
abbreviated date key in which the most significant two digitsofAg.y.gaim the 
we ^em calendar are omittedj n pjrtiS"lar. it provides a method of managing a date 
key which is useful for processing a data file in whicli, when the year in the western 
calendar shifts from the 20th century to the 21st century, date keys of both centuries 
are intermingled. 

[0002] 

[Prior art] Usually, when managing date data in a file, an abbreviated form is 
employed in which the most significant two digits of the year in the western calendar 
are omitted, This is because, at tlie present time, the value of the most significant two 
digits of the year in the western calendar is always "19". so the data is redundant. 
However, when the situation is reached in which data beyond the year 2000 in the 
western calendar are to be managed, liie year data in abbreviated fomi becomes "00". 
so, when performing processing in which the date is used as key, inconvenience 
occurs in the order of anangement of the data. 

[0003] A prior art example is shown in Figure 3. In tliis Figure, 1 is a product 
management data file, in which each record comprises date data indicating date of 
purcl^e, product name data, and numerical quantity dau. In the date data, for 
example "991203" represents 3rd December, 1999, and "000210" represents 10th V / /^/^ 
February 2000. The arrangement of records within this data file 1 is random with 
respect to the value of the date data, which constitutes the key^is a key file compiled 
for the date data of the records of data file 1, in which the date data are arranged in 
accordance with the magnimde of their value. 

[0004] In the key file 2 of this prior art example, keys in which tlie value of the 
most significant two digits of the date data is "00" are arranged prior to the keys in 
which this is "99", so, at the boundary, an inversion in time sequence occurs, which is 
inconvenient. In general, this problem occurs when date data are sorted. 

[0005] . . 

[Problem that the invention is intended to solve] An object of this mvention, m 
a data file in which date data providing a key are constituted using the least significant 
two digits of the year of the western calendar, is to malce possible the compilation of a 
key file in which there is no inversion of time sequence and no need for alteration of 



die data file even if the year 2000 in tlie western calendar is exceeded. 
[0006] 

[Means for solving the problem] In a method of managing date keys according 
to the invention, when compiling a key file or performing sorting keyed by date m a 
data file in which the least significaait two digits of the western calendar year are 
employed"^ the year data, it is ascertained whether the valup of the two digits of tlie 
year data belongs to the 20tla century or 21st century of the Western calendar and, in 
accordance with the result, the 2-digit year data is expanded by appending at its head 
the 2-digit value "19" or "20", thereby restoring it to the 4-digit western calendar year, 
and compilation of a key file or sorting is performed using the year data including tliis 

restored western calendar year. 

[0007] The principle of the method of managing a date key according to the 
invention is that, for 2-digit year data of a data file, normally tlie range of values of 
the 20th century of the western calendar and the range of values of the 21st century of 
the western calendar are clearly distmguislied, so by employing a suitable threshold 
value, the respective value ranges can easily be separated. 

[0008] Figure 1 is a diagram of the principles of the invention. In this Figure, 1 
is a data file whose record data haye a date key including as year dau the least 
significant two digits of tlie year of the western calendar. ^^--""'''^ / • ^ z. 

[0009] 3 is a key file which is compiled using ajiafekey including the 4-digit 
western calendar year data restored by date key restoration unit 4. 4 is the date key 
restoration unit; this compares the 2-digit valu^f the year data with a prescribed 
thresliold value and, if the year data is greater than the tlueshold value, appends "19" 
at the head thereof, and, if the year data is smaller than the threshold value, appends 
"20" at the head thereof, tliereby restoring a dateUcey including 4-digit western 
calendar year data. V-v| ^ [^^^^ ^ ^ 

[0010] ' 
[Action] The action of this invention will be described using Figure 1. In the 
date data (keys) of each of tlie records shown by way of example in the data file 1 of 
Figure 1, the two head digits are "99" or "00". This indicates that the conesponding 
year of the western calendar is 1999 or 2000. The reason for this is that the data file 1 
does not contain the year data "2099" or "1900". In this case, by employing an 
ar bitrary value between "99" and "00" as the threshold value, and comparing tliis wi th 
the year data in the date keys, it is simple to identify whetlier a date key belongs to the 
year 19 99 or tlie year j OOO. For example, if the threshold value is set to "50", if the 
year data is "99", which is larger than "50", "19" is appended to the head thereof, 
the ye ar data is "0 0", which is snialler than "50"."20" is appended to the head thereof 
' [0011] In general, if the minimum value of tlae year data in the 20tli century is 
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"nom" and the maximum valueofthe year datamthe21st century is "i^n, .forthe 

■threshold value, a suitable value between "ncn," and "n: n3" is employed. 

[0012] Since tlie values of year keys having 4-digit westem calendar year data 

which are restored in this way now accurately reflect the time sequence, the date keys 
of a key file 3 compiled by sorting these are put in correct time sequence order as 
shown in the drawing. } 
[0013] 

[Embodiments] Figure 2 shows the layout of a data processing system accordmg 
to an embodiment of the invention. InFigure 2, data file 1, key file 3. and date key 
restoration unit 4 are respectively the same as those described with reference to Figure 
] Also 5 is a key file compilation unit that compUes a key file 3 from the date keys 
restored by date key restoration unh 4. 6. 7. 8, and 9 indicate the hardware 
construction of the system. 6 being a processing device, 7 being a display, 8 bemg a 
key input device and 9 being a pripter. 

[0014] The function of date restoration unit 4 and key file compilaUon umt 5 is 
realised by a program. In tl« example illustrated in the drawings, a layout is adopted 
whereby key file compUation unit 5 is cascade-connected to date key restoration umt 
4 and key file 3 is compiled by receivhig the date key restored by reading fiom data 
file 1 by date key restoration miit 4; however, a layout could be adopted m which key 
file compilation xmit 5 reads the date key 6om data file 1 and relies on restoration 
processing performed by calling date key restoration unit 4, or a layout could be 
adopted in which kev file compilation unit 5 incorporates the function of date key 
restoration unit 4 internally. Further, a program having the function of the date key 
restoration unit could be provided by the system as a support program, or could be 

prepared as an application program. 

[0015] In the layout of Figure 2, the date key restoration unit 4 operates as 
follows. First nf nil -^^^H from data file 1 , and reads the 2-di9i ryear 



data (n n) in th e date key thereo f. Then, it compares the yea^d ataQTnjw^ 
jjll^-r^p-;^ th-'-'^^^^'HWlue (a) and.' if n n > a, it appends "19" to the 
hu^:;T^rirr>£^ TP^"^^ "^Q"- I^^^^ way, it re^ores 

^^Tgj^iT^rT^ ^ .nH r.i^m^ thk with the remaining month and day data, 
tra nsfers it to kgLfiLe compUation unit 5. This processing is executed for the 
successive records of data file 1 and ts^ms^ when the last record is processed. 

[0016] Key file compilation unit 5 writes into a worldng region of memory, not 
shown all the date kevs that have been obtajr^ed firom date kev restoration unit 4.and 
co mpiles a k e> ^file 3 arranged for exainpie jn_ascending order by performrngjorting 
processing, elim mating duplicated keys , 
[ooiTfM^igh this invention lias been described talcing as example the 
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.pillion of a key file, it is not restricted to this a..d can be applied to any desired 
file processing involving sorting of a date key. 

[Benefit of the Invention] With this invention, it becomes possible to use 
existi: g files or applications used in the 20th century of the western calendar mto the 

of thewestern calendar continuously without having to modify the., 
thereby malcing it possible to greatly reduce maintenance coits necessary for 

changeover. 

[Brief description of the drawings] 

FFigure 1] This is a diagram of the principles of the invention. 

(Figure 2] ^s is a layout diagram of a data processing system according to an 

embodiment of the invention. j. 

[Figure 3] This is a diagram of a method of date key management accordmg to a 

prior art example. / / 

[Explanation of the reference symbols] 
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4 date key restoration unit 
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Figure 2 

Layout of data processing system according to embodiment of the invention 
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